unit udmMain;

interface

uses
  SysUtils, Classes, ActnList, Menus, ExtCtrls, StdActns, Forms, JvSimpleXml;

type
  TDataModule1 = class(TDataModule)
    TrayIcon: TTrayIcon;
    TrayMenu: TPopupMenu;
    ActionList: TActionList;
    actShow: TAction;
    actClose: TAction;
    ShowWaptitude1: TMenuItem;
    ExitClose1: TMenuItem;
    N1: TMenuItem;
    JvSimpleXML: TJvSimpleXML;
    procedure actCloseExecute(Sender: TObject);
    procedure actShowExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation
uses uMain;
{$R *.dfm}

procedure TDataModule1.actCloseExecute(Sender: TObject);
begin
Application.Terminate;
end;

procedure TDataModule1.actShowExecute(Sender: TObject);
begin
frmMain.Show;
end;

end.
